home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 23 / 64er_Magazin_Sonderheft_23_19xx_Markt__Technik_de_Disk_1_of_2_Side_B.d64 / mask gen. (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  2KB  |  53 lines
  1. 10 print"[147]":a$="                                       "
  2. 20 printa$:print"  [146] [164][164][164][164][164][164][164][164][164][164][164][169]      [146] [164][164][164][164][164][164][164][164][164][169]       [146]"
  3. 30 print"  [146]         khz  grf  [146]         %  pls   [146]"
  4. 40 print"  [169]";left$(a$,19);"[169]";left$(a$,18)
  5. 50 printa$:print"  [146] [164][164][164][164][164][164][164][164][164][164][164][169]         [146]  [169]";left$(a$,13)
  6. 60 print"  [146]          hz  frq wav [146]    dreieck    "
  7. 70 print"  [169]";left$(a$,22);"[146]    saegezahn  "
  8. 80 printleft$(a$,25);"[146]    rechteck   "
  9. 90 print"  [146]  [169][146]  [169][146]  [169][146]  [169][146]  [169][146]  [169][146]  [169] [146]    rauschen   "
  10. 100 b$="  [146]   [146]   [146]   [146]   "
  11. 110 b$=b$+"[146]   [146]   [146]   "
  12. 120 printb$;" [146] [192]  aus        "
  13. 130 printb$;" [169]";right$(a$,14)
  14. 140 printb$;right$(a$,16)
  15. 150 printb$;"    [146][169]       tes "
  16. 160 printb$;"  = [146]  [146][209] rmd     "
  17. 170 printb$;" [146][169]          end "
  18. 180 printb$;"    [146][169]";right$(a$,11)
  19. 190 print"  [146] [210] [146] [210] [146] [210] [146] [210] [146] [210] [146] [210] [146]     = [146]  [146][209] syn voi "
  20. 200 print"  [169]  [169]  [169]  [169]  [169]  [169]  [169]   [146][169]   ";right$(a$,11)
  21. 210 print"   a  d  s  r  v  r  f     [146][169]       [146] [164][169] "
  22. 220 print"   t  e  u  e  o  e  i   = [146]  [146][209] fil [146] 1  "
  23. 230 print"   t  c  s  l  l  s  l  [146][169]          [169]   "
  24. 240 printa$:printa$;
  25. 250 fori=55296to56255:pokei,12:nexti:fori=56256to56295:pokei,11:nexti
  26. 260 x=2:y=10:b=21:h=10:c=15:gosub500
  27. 270 y=11:h=8:c=0:fors=0to6:x=3+s*3:gosub520:nexts
  28. 280 x=2:y=2:b=13:h=3:c=15:gosub500:y=6:gosub500
  29. 290 x=3:y=2:b=11:h=2:c=13:gosub500:y=6:gosub500
  30. 300 x=21:y=2:b=11:h=3:c=15:gosub500
  31. 310 x=22:y=2:b=9:h=2:c=13:gosub500
  32. 320 x=24:y=6:b=3:h=7:c=15:gosub500
  33. 330 x=25:y=7:h=5:c=0:gosub520
  34. 340 x=24:y=14:b=4:h=9:c=15:gosub500
  35. 350 x=25:b=2:c=0:fors=0to2:y=15+s*3:gosub510:nexts
  36. 360 x=35:y=20:b=3:h=3:c=15:gosub500
  37. 370 x=36:y=20:h=2:c=13:gosub520
  38. 380 poke55925,0:poke56045,0:poke56165,0
  39. 390 ad=1024:n=1000:n$="mask":gosub420
  40. 400 ad=55296:n$="c.mask":gosub420
  41. 410 end
  42. 420 open1,8,1,n$
  43. 430 print#1,chr$(ad-int(ad/256)*256);
  44. 440 print#1,chr$(ad/256);
  45. 450 fori=0ton-1
  46. 460 print#1,chr$(peek(ad+i));
  47. 470 nexti
  48. 480 close1
  49. 490 return
  50. 500 fori1=xtox+b-1:fori2=ytoy+h-1:poke55296+i1+i2*40,c:nexti2,i1:return
  51. 510 fori=xtox+b-1:poke55296+i+y*40,c:nexti:return
  52. 520 fori=ytoy+h-1:poke55296+x+i*40,c:nexti:return
  53.